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Guida par l'input dai programmi «arsioni 
VIC SO a C«4 


Notate che i listati contengono paro¬ 
le' racchiuse tra parentesi graffe f /. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da 101 deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico " so¬ 
litario ” questo aovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sa'd 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colon 


ICLRl 
(HOME) 
(SOI - 
«SU'* I 
(SIN) 
iOES ! 

( R VS ) 
(OFF) 
(BLR) 
ÌWHTl 
iRF.Dl 








(CYN} 
(PORI 
(CRN | 
( BLU I 
(VELI 
l<l>l 
I < 2 > | 

IO>l 
l<4>| 
l<5>| 
I < *> I 




DO 

DB 

DO 


ki 

l<7>| 

m 

!<•>! 

□ 

(FU 

□ 

IF2J 

B 

( F J1 

□ 

(F4) 

B 

IF5I 

O 

(F6) 

^1 

1F7 ) 


f F81 


DO 

DO 






Par ricavare gO arretrati di aV/fi 

K 


compilar* il seguente tagHando: 


J _ _ ^ Compilare ad inviare in butta chiusa a: 

♦SOFT viale RestaOl 5 - 20124 MOano - Tei. 02 / 6888228 - 683797 - 6880641 - 2-3 


Nome 


Cognome 
Indirizzo. 


CAP_ Otti 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 
. ! 



Anno 



Pléj 


dedicato a. 


Anno 


a L. 2.000 cad. per un totale di L . a mezzo 


□ assegno allegato □ contanti allegati 

K . 

























6 Guerra statare (joystick) 

di P Ziobody trad. e adatt di Franco Sarcina 

8 Robot City (3K joystick) 

di A. Sperelli trad e adatt di Franco Sarcina 


4à A Dieta equilibrata 

■ w Terza parte 

di Giorgio Valentini 

aa Sotterranei 

O di P Marker trad e adatt di Franco Sarcina 


CI6z-plus/4 


4É A Snafce 

Mm di S Sbatter trad e adatt di Franco Sarcina 

^ p Artt I robo t 

15 di Bob Stewart trad e adatt di Franco Sarcina 
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Stop Bug 

Se non l’hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
Una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell’angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea 
Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca, al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma 
Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
06 e Plus/4). Per riattivarlo batti- 

SYS PEEK(56)*256 per il VIC 20, 
SYS 16128 per il 06 e il PLUS/4, 
SYS 40704 per il C 64 



STOP BUG per C*4 e VIC SO 

100 POKE55,0:POKE56,PEEK(56)-1:R-PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI*RTOR+l32:READA:CK*CK+A:IFA*999THENA*R/256 
120 POKEI, A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R)SPRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201,32,208,1 ,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,133,254,96,32,87,241 ,133 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,210,255,165,21 4,141,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,1 8,32,210,255 
300 DATAI 69,58,32,210,255,166,254,169,0 
310 DATAI 33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,11 7,999,32,205,221 
330 DATAI 69,32,32,210,255,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 


STOP BUG per Clé < PLUS/4 

100 POKE55,0: POKE56 ,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI*16128T016260 :READA:CK*CK+A:POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU ' } ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR}{ 2 GIU*}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATA173,34,3,201,32,208,1,96,141 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,133,6,96,32,2 32,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,101,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,13,32,21 0,255,165,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9;32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,172,33,63,192,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,205,76,55,63 
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Guerra Stellare 



joystick 


Siamo infine arrivati al dunque: le 
guerre stellari, di cui tanto si parla 
in questi ultimi tempi, da dibattito 
politico si sono trasformate in real¬ 
tà. I famigerati rossi (e/o i famige¬ 
rati yankees, dipende dai punti di 
vista), attaccano senza pietà una 
città dallo spazio. Pilota di caccia 
con una decennale esperienza, i 
tuoi concittadini ti hanno affidato 
la loro difesa. Con il tuo razzo stra¬ 


tosferico parti per la missione deci¬ 
siva. Attenzione però a non colpi¬ 
re per sbaglio qualche tuo compa¬ 
triota! 

Per fortuna è solo un gioco, quindi 
per questa volta ti è permesso usa¬ 
re il tuo joystick, e non un ben più 
pericoloso (e senz’altro meno di¬ 
vertente!) mirino per missili aria- 
aria. 


io REM 

15 PRINTCHR$(147)CHR$(5):POKE36879,8 

20 PRINT"ISTRUZIONI.(S/N)" 

25 GETA$: IFA$0"S"ANDA$0"N"THEN25 
30 IFA$="N"THENPRINT"{GIU'}{ 6 SPAZI}ATTENDI 


:rem 69 
:rem 70 
Srem 182 
treni 197 
GOTO60 
:rem 163 


35 PRINTCHR$(147)CHR$(158)"***GUERRA{ 2 SPAZIJSTELLARE*** 
" :rem 53 

40 PRINT"DEVI DISTRUGGERE LA{ 3 SPAZI}FLOTTA DI SATELLITI 

{ 3 SPAZI}LASER CON IL TUO" :rem 21 

45 PRINT"CACCIA, MA EVITA DI{ 3 SPAZI}COLPIRE GLI UMANI." 

:rem 32 

50 PRINT"{GIU'}NON CERCARE DI OLTRE- PASSARE IL CAMPO DI 

{ 3 SPAZI}FORZA." :rem 184 

55 REM :rem 78 

60 POKE52,28:POKE56,28:CLR:FORI=7168T07679: POKEI,PEEK (1+2 



5600):NEXT 

:rem 

82 

65 

FORC=7432T07487 :READX:POKEC,X:NEXT 

:rem 

118 

70 

PRINT" {GIU'} { 3 DESHRVS} PREMI UN TASTO 

" : rem 

93 

75 

GETA$:IFA$*""THEN75 

: rem 

251 

80 

REM 

:rem 

76 

85 

A=PEEK(36866)ANDl28 :SC*4*A+64*(PEEK(36869)ANDll2): 

C*30 


720:M=SC+252 

: rem 

89 

90 

Q$="{HOME}{ 13 DES}" 

2 rem 

235 

95 

Si*36876:S2=Sl+l:V=S2+1:CH*34:SE=0:PRINT" 

{CLR}":POKE36 


869,255 

2 rem 

78 

100 REM 

2 rem 

117 
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105 FORT-lTO50:X-(SC+67)+INT(RND(l) *440)iPOKEX,39:NEXT 

: rem 246 

110 FORT-lTOlOO:X-(SC+67)+INT(RND(l)*440):POKEX+C»3:POKEX 
,38:NEXT :rem 171 

115 FORA-SC+44TOSC+65:POKEA+C,5:POKEA+C+440,5:POKEA,37 : PO 
KEA+440,37:NEXT :rem 101 

120 FORA»SC+66TOSC+462STEP22:POKEA+C,5:POKEA+C+21,5:POKEA 
z 37 :POKEA+21/37:NEXT :rem 204 

125 POKESC+252/32 :rem 178 

130 REM :rem 120 

135 POKE3139 f 0:POKE37154/127:P*PEEK(37137) :rem 105 

140 JN»(PAND4)/4:JS-(PAND8)/8:JW=(PANDI 6)/16:JF-(PAND32)/ 
32 :rem 153 

145 P-PEEK(371 52):JE-(PANDI 28)/I28:POKE371 54,255: POKE371 3 
9/128 :rem 234 

150 IFJN-0THENZ-1:CH-34 :rem 138 

155 IFJS-0THENZ«2:CH-36 :rem 151 

160 IFJW-0THENZ-3:CH-33 :rem 149 

165 IFJE-0THENZ-4:CH-35 :rem 139 

170 REM :rem 124 

175 PRINT"{HOME}{YEL}PUNTI"SE:PRINTQ$"HIGH"HI :rem 120 

180 POKESC+252,32 :rem 179 

185 REM :rem 130 

190 IFZ-lTHENM-M-22:POKEM+22,32:IFPEEK(M)-37THEN240 

:rem 86 

195 IFZ-2THENM-M+22:POKEM-22,32:IFPEEK(M)-37THEN240 

: rem 92 

200 IFZ-3THENM-M-1:P0K34+1,32:IFPEEK(M)-37THEN240 

:rem 234 

205 IFZ-4THENM-M+1:POKEM-1,32:IFPEEK(M)«37THEN240 

:rem 240 

210 IFPEEK(M)-38THENFORT-15TOOSTEP-.3:POKEV/T:POKES2,220+ 
T:NEXT:POKES2,0 :SE*SE+10 :rem 153 

215 IFPEEK(M)«39THENGOSUB275 :rem 224 

220 IFSC<0THENSC«0 :rem 87 

225 POKEM+C,7:POKEM,CH jrem 83 

230 IFM b SC+ 252THENPOKEV,10:POKESl,200:FORT*1TO30:NEXT:POK 

:rem 159 

235 GOT0135 :rem 108 

240 POKEV+1,40:FORT»15TOOSTEP-.3:POKEV/T:POKES2,200+T:NEX 
T:IFINT(SE)>HITHENHI*INT(SE) jrem 220 

245 PRINTQ$"{ 4 DES}"HI :rem 230 

250 SE-0:FORT»lTOl000:NEXT:POKEV+1,8 :rem 219 

255 PRINT"{WHT}{HOME}{GIU'){ 2 DBS}*{DBS}PREMI UN TASTO 
{DES}*" :rem 9 

260 GETA$:IFA$-""THEN260 srem 83 

265 PRINT"{CLR}":M»SC+252:Z»0:POKES2/0:GOTO90 :rem 70 

270 RH4 srem 125 

275 FORT-250TO150STEP-20:POKEV,15:POKESl,T:POKES2,T-10: NE 
XT:POKEV/0:POKESl,0:POKBS2,0 :rem 146 



280 

SE-SE-10:RETURN 

:rem 

175 

285 

REM 

:rem 

131 

290 

DATA0,1,3,62,255,62,3,1 

: rem 

77 

295 

DATAI 6,16,56,56,56,56,124,84 

:rero 

107 

300 

DATAI 28,192,124,255,124,192,128,0 

:rem 

73 

305 

DATAI 07,62,28,28,28,28,8,8 

: rem 

254 

310 

DATA84,254,84,254,84,254,84,0 

:rem 

147 

315 

DATAI 29,66,24,60,60,24,66,129 

: rem 

143 

320 

DATA24,24,0,56,68,16,40,40 

:rem 

231 


Robot City 








3 K joystick 


Nell'anno 2139 i robot dominano 
incontrastati la megalopoli di Los 
Angeles. La razza umana ha ora¬ 
mai perso l'ultima battaglia contro 
le macchine, parto deforme dell'in¬ 
telletto di scienziati desiderosi di 
dominio. Unico superstite: TU, ulti¬ 
mo discendente di Rambo, che an¬ 
cora combatti senza tregua una 
battaglia già persa. I robot posso¬ 


no distruggerti con un solo tocco, 
e l’unica tua possibilità di soprav¬ 
vivenza è di recuperare l’energia 
che gli infernali arnesi disseminano 
lungo la loro strada. 

La tua eccezionale resistenza fisica 
ti permette di sopravvivere per tre 
missioni. Per muoverti usa il joy¬ 
stick. 


io 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 


rem 

170 

rem 

61 

rem 

162 

rem 

184 

rem 

189 

GO": 

GOTO 

rem 

33 

rem 

168 

rem 

102 


PRINTCHRS(147)CHR$(158):POKE36879,8 
GOTO545 

POKE36878,0:POKE36876,0:POKE36875,0 
PRINTCHR$ (5) " ISTRUZIONI....(S/N)" 
GETA$:IFA$O"S"ANDA$O"N"THEN30 
IFA$«"N"THENPRlNT"{ 2 GIU'H 4 DES}ATTENDI PREGO":GOTO 
70 

PRINTCHRS (14) 

PRINTCHRS (147)"{ 3 DES}** ROBOT CITY **" 

PRINT" { 3 GIU'H 2 SPAZI JPRENDI LE PILLOLE { 5 SPAZI }EN 
ERGETICHE ESPULSE{ 3 SPAZI }DAI ROBOT." :rera 19 

PRINT"{GIU'}{ 2 SPAZI}MA NON TOCCARLI, SE{ 3 SPAZI}NON 
VUOI ESSERE DI-{ 3 SPAZI}STRUTTOI" :rem 111 

PRINT" { 2 GIU'H 2 SPAZI}USA IL JOYSTICK PER 
{ 3 SPAZI}SPOSTARTI." :rem 165 

REM :rem 79 

POKE52,28 : POKE56 ,28:CLR:FORI*7168T07679:POKEI,PEEK(1+2 
5600):NEXT :rem 83 
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75 F0RO7432T07463:READA:P0KEC,A:NEXT srem 67 
80 REM srem 76 
85 F0RJ a> 8287091 2:READX:POKEJ,X:NEXT:SYS828 srem 245 
90 PRINT" { 2 GIU'H 3 SPAZI }{RVS} PREMI UN TASTO {OFF}" 


171 
' 255 
7 

82 

118 


srem 

95 GETA$sIFA$-""THEN95 srem 

100 PRINTCHR$(142) srem 

105 PRINTCHR$(147)sPOKE36869,255 srem 

110 REM srem 

115 A-PEEK(36866)ANDl28:SC«4*A+64*(PEEK(36869)ANDl12)sC-3 
0720 srem 101 

120 Si*36876:S2*S1+1 :V*S2+1 s Z*1 s rem 238 

125 REM srem 124 

130 PRINTCHR$ (17)CHR$ (156); srem 4 

135 PRINT"limMl!Illiniinilll{ 9 SPAZI}I 1 { 9 SPAZI}1 1 
mim 11 mini 1"; srem 81 

140 PRINT"1{ 5 SPAZI}!1! I! 1I !{ 5 SPAZI}!! Ili ! 

{ 8 SPAZI}! II! Il II! ! !!!!!! ! li! 1"; srem 69 

145 PRINT"!{ 5 SPAZI}!{ 3 SPAZI}!l{ 3 SPAZI}!{ 5 SPAZI}!1 
111 ! 11 ! ! 11 ! 1 ! ! ! ! Ili 1 ! I ! ! ! I ! Ili !"; 

srem 140 

150 PRINT"1{ 6 SPAZI}!! 1! 11{ 6 SPAZI}I11I!11 

{ 10 SPAZI}!! 1!!11{ 6 SPAZI}!! 11 !!{ 6 SPAZI}!"; 

srem 62 

155 PRINT"! ! ! ! Ili li II! 11! !! Ili ! ! ! !1 111 III 11 

{ 5 SPAZI}!{ 3 SPAZI}1 !{ 3 SPAZI}!{ 5 SPAZI}!"; 

srem 141 

160 PRINT"! 11! 1 11!!!! ! !!! !! !!! !{ 8 SPAZI}! 1 ! ! Il 

{ 5 SPAZI}!!! ! ! 1 ! !{ 5 SPAZI}!”; srem 71 

165 PRINT"! ! ! ! 1111 11 111!!!! !!{ 9 SPAZI}!l{ 9 SPAZI}!! 

1 ! 111!1!!!!!! 1 ! 1!1!!"; srem 51 

170 POKESC+505+C,4:POKESC+505,33 srem 70 

175 M(1 ) “SC+67+INT(RND(1)*396)sIFPEEK(M(1))«33THEN175 

srem 237 

180 M(2)-SC+67+INT(RND(1)*396): IFPEEK(M( 2))-33THENl80 

srem 231 


185 M(3)«SC+67+INT(RND(l)*396):IFPEEK(M(3))«33THENl85 

srem 243 

190 M(4)-SC+67+INT(RND(l)*396):IFPEEK(M(4))«33THEN190 

srem 237 

195 REM srem 131 

200 POKEV,0:POKES1,0 :rem 188 

205 IFPEEK(841)-0THENZ-1:Q-INT(RND(1)*4+1):GOSUB455 

srem 25 

210 IFPEEK(842)-0THENZ-2:Q-INT(RND(1)*4+1)SGOSUB465 

srem 24 

215 IFPEEK(843)-0THENZ»3:Q-INT(RND(1)*4+1)SGOSUB475 

srem 32 

220 IFPEEK(844)-0THENZ-4sQ-INT(RND(l)*4+1):GOSUB485 

srem 31 
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225 

IFZ-10RQ-1THENG0SUB295 

:rem 

159 

230 

IFZ-20RQ-2THENG0SUB335 

srem 

152 

235 

IFZ-30RQ-3THENG0SUB375 

srem 

163 

240 

IFZ-40RQ-4THENG0SUB415 

srem 

156 

245 

IFPEEK(M(1))«36THENPOKEV,10:POKES1,200 :SE-SE+5 




srem 

8 

250 

IFPEEK(M(1))«34THENAB«AB+1:G0T0495 

srem 

242 

255 

F0RT-2T04:POKEM(T)+C,5:POKEM(T),34:NEXT 

srem 

174 

260 

POKE(N( 1 ) ) +C, 1 : POKE (M(1 ) ) ,35 

srem 

207 

265 

IFSE<0THENSE a 0 

srem 

100 

270 

PRINTCHRS(19)CHR$(158)"PUNTIS"SE:PRINTCHR$(19)SPC(12) 


"HIGH:"HI 

srem 

196 

275 

IFSE>HITHENHI«SE 

srem 

41 

280 

G0T0195 

srem 

114 

285 

REM 

srem 

131 

290 

REM 

srem 

127 

295 

M(2)-M(2)+22:M(3)»M(3)-1 :M(4)-M(4)+1 

srem 

250 

300 

POKEM(2)-22,36:POKEM(3)+1,36:POKEM(4)-1,36 

srem 

17 

305 

IFPEEK(M(2))-33THENM(2)-M(2)-22 

srem 

173 

310 

IFPEEK(M(3))-33THENM(3)“M(3)+1 

srem 

119 

315 

IFPEEK(m(4))-33THENM(4)*M(4)-1 

srem 

129 

320 

F0RT-2T04:POKEM(T)+C,5:POKEM(T),34:NEXT 

srem 

167 

325 

RETURN 

srem 

122 

330 

REM 

srem 

122 

335 

M(2)-M(2)-22:M(3)«M(3)+1:M(4)-M(4)-1 

srem 

247 

340 

POKEM(2)+22,36:POKEM(3)-1,36:POKEM(4)+1,36 

srem 

19 

345 

IFPEEK(M(2))-33THENM(2)»M(2)+22 

srem 

175 

350 

IFPEEK(M(3))-33THENM(3)«M(3)-1 

srem 

125 

355 

IFPEEK(M(4))-33THENM(4) -M(4) +1 

srem 

131 

360 

F0RT-2T04:POKEM(T)+C,5:POKEM(T),34:NEXT 

srem 

171 

365 

RETURN 

srem 

126 

370 

REM 

srem 

126 

375 M(2)-M(2)+l:M(3)-M(3)-22:M(4)-M(4)+22 

srem 

44 

380 

POKQ4 (2)-1,36:POKEM(3)+22,36:POKEM(4)-22,36 

srem 

76 

385 

IFPEEK(M(2))«33THENM(2)*M(2)-1 

srem 

130 

390 

IFPEEK(M(3))“33THENM(3)*M(3)+22 

srem 

178 

395 

IFPEEK(M(4))-33THENM(4)-M(4)-22 

srem 

188 

400 

FORT-2TO4:POKEM(T)+C,5:POKEM(T),34:NEXT 

srem 

166 

405 

RETURN 

srem 

121 

410 

REM 

srem 

121 

415 M(2)-M(2)-1:M(3)-M(3)+22:M(4)-M(4)-22 

srem 

41 

420 

POKB4(2)+l,36:POKEM (3)-22,36:POKEM(4)+22,36 

• 

srem 

69 

425 

IFPEEK(M(2))«33THENM(2)*M(2)+1 

srem 

123 

430 

IFPEEK(M(3))*33THENM(3)*M(3)-22 

srem 

175 

435 

IFPEEK(M(4))«33THENM(4)*M(4)+22 

srem 

181 

440 

FORT-2TO4 :POKEM(T)+C,5:POKEM(T),34:NEXT 

srem 

170 

445 

RETURN 

srem 

125 

450 

REM 

srem 

125 


455 IFZ*1THENM(1)«M(1)-22:POKE(M(1))+22,32:IFPEEK(M(1))-3 
3THENM(1)"M(1)+22 • srem 131 
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460 RETURN srem 122 

465 IFZ-2THENM(1)-M(l)+22:POKE(M(l))-22,32:IFPEEK(M(1))-3 
3THENN(1)*M(1)- 22 :rem 135 

470 RETURN :rem 123 

475 IPZ s 3THENM(1)*M(1)-1:POKE(M(l))+1,32:IFPEEK(M(1))-33T 
HENM(1)*M (1)+1 : rem 238 

480 RETURN :rem 124 

485 IFZ-4THENM(1)-M(1)+1:POKE(M(l))-1,32:IFPEEK(M(1))«33T 
HENM(1)*M(1)-1 : rem 242 

490 RETURN :rem 125 

495 REM :rem 134 

500 FORF*250TOl50STEP-5:FORL»0TO3:POKESl-2+L,F:POKEV,15:N 
EXTL,F :rem 218 

505 FORVO*l5TOOSTEP-.3:POKEV,VO:POKES2,250-VO:NEXTVO 

srem 151 

510 POKES1-2,0:POKES1-1,0 :POKES1,0 :POKES2,0:POKEV,0:IFAB» 
3THENSE-0 :GOTO690 
515 PRINTCHR8 (147) 

520 PRINT" {YEL}{HOME 1 { 3 GIU'H 3 DES}- ROBO' 


525 

530 

535 

540 

545 

550 

555 

560 

565 

570 

575 

580 

585 

590 

595 

600 

605 


THENPRINT"{SIN}A"? 


IFPEEK(371 51) 0 94THEN535 
PRINTCHR$(147):GOTOl20 
REM 

> > > > > >T":GOSUB610 

> > > > > O":GOSUB610 

> > > > >B”:GOSUB610 

> > > > O":GOSUB610 

> > > >R":GOSUB610 
A$“"( 8 SPAZI}":GOSUB610 
PRINT"{ 3 GIU'}" 

A$«"{WHT} >>>>>> Y":GOSUB610 
A$-"{CYN) > > > > > T":GOSUB610 
A$«"{GRN) > > > > I":GOSUB610 
A$-"{YEL} > > > C":GOSUB610 


A$-"{YEL} 
A$-"{GRN) 
A$-"{PUR} 
A.?»"{CYN) 
A$«"{WHT} 


610 FORA-lTOl5:PRINTRIGHT$(A$,A)SPRINT"{ 2 SU}":POKE36878 
,A:POKE36876,255-A*3:POKE36875,140+A 
615 NEXT 
620 RETURN 
625 REM 

630 DATA254,254,254,0,239,239,239,0 
635 DATA24,36,90,153,0,60,36,102 
640 DATA24,24,0,56,84,16,40,40 
645 DATA0,0,0,24,24,0,0,0 
650 REM 

655 DATAI20,169,78,141 ,20,3,169,3,141,21 ,3,88 
660 DATA96,0,0,0,0,0,169,0,141,19,145,169,127,141 
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:rem 

91 

:rem 

22 

CITY -" 

:rera 

188 


AB-1 

:rem 

16 

**:rem 

160 

:rem 

86 

:rem 

26 

:rem 

130 

: rem 

55 

:rem 

121 

srem 

230 

srem 

189 

srem 

34 

srem 

216 

srem 

161 

srem 

171 

srem 

254 

srem 

57 

srem 

104 

GOTO20 

srem 

246 

":POKE36878 

srem 

130 

srem 

219 

srem 

120 

srem 

129 

srem 

242 

srem 

79 

srem 

234 

srem 

217 

srem 

127 

srem 

218 

-141 



:rera 139 

665 DATA34,145,173,17,145,41,4,141,73,3,173 :rem 120 

670 DATAI 7,145,41 ,8,141,74,3,173,17,145,41 ,16,141 

:rem 153 

675 DATA75,3,173,32,145,41,128,141,76,3,173 :rem 126 
680 DATA17,145,41,32,141,77,3,169,255,141,34,145:rem 114 

685 DATA169,128,141,19,145,76,191,234,0,0,0,0 ' :rem 215 

690 FORXX«lTOlOOO:NEXT:PRINT"{CLR}{RVS}{ 6 SPAZI}FINE GIO 
CO" :rem 196 

695 PRINT"{ 4 GIU'}{RVS}{YEL} GIOCHI ANCORA (S/N)?" 

:rem 48 

700 GETA$:IFA$0"S"ANDA$0"N"THEN700 : rem 37 

705 IFA$*"N"THENPOKEl98,0:SYSl98 :rem 150 

710 AB=0:PRINT"{CLR}":GOTO!20 :rem 44 



Ecco una versione per il vostro 
Commodore 16 di un popolarissi¬ 
mo e divertente gioco di abilità e 
destrezza. Si tratta di guidare un 
serpente attraverso un campo col¬ 
lezionando il maggior numero di 
bersagli, rappresentati da numeri 
che appaiono e scompaiono ca¬ 
sualmente sullo schermo, evitando 
gli ostacoli che costellano il cam¬ 
po. Il punteggio viene assegnato 
tenendo conto del valore del sin¬ 


golo bersaglio,- ogni volta che il 
serpente va a sbattere, però, si 
perdono 10 punti. 

I tasti da usare per giocare sono i 
seguenti: 

Q per andare in alto,- 
Z per andare in basso,- 
P per andare a destra,- 

I per andare a sinistra. 

II gioco prevede 5 differenti livelli 
di difficoltà. 


10 REM SNAKE 
20 GOTO850 

30 REM SET VARIABILI 
40 DIMLO(25) 

50 P=3514:SC=0:CO=0:C=1 

60 D=1:T*60:GOSUB80:PRINT"{HOME}PUNTEGGIO 0{ 
O 60":GOTO200 
70 REM SET SCHERMO 


:rem 183 
:rera 56 
:rem 198 
:rem 145 
:rem 32 
5 SPAZI}TEMP 
:rem 91 
:rem 72 
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80 PRINT"{CLR}{BLK}{RVS}PUNTEGGIO "SC 
90 F0RQ-1T023:PRINT"{RVST { 38 DES} ":NEXT 
100 PRINT"{RVS}{ 39 SPAZI}";sCO«0 
110 FORQ-1TOSK*300 sA-3072+RND(1)*1000:KB-RND(1)*64 

120 POKEA f 170:POKEA-1024 , KB:NEXT 
130 FORQ*3072TO3112: POKEQ,160:POKEQ-1024,0:NEXT 
140 POKE4071 ,160 :POKE3047,0 
150 F0RQ-lT025:READL0 (Q)sPOKELO(Q), 160 
160 POKEIX) (Q) -1 024,T+3s NEXTs RESTORE: LO (1 ) *P 
170 POKE3346,32 

180 FORZALO(25)+1TOLO(25)+28:POKEZ,32:NEXT 
190 RETURN 

200 COLOR4,6,2:COLORO » 8 f 5 
210 TI$“"000000" 

220 RV-66 

230 POKEP,160sPOKEP-1024,RV 
240 T»60-VAL(TI$) 

250 PRINT"{HOME}{RVS}";TAB(16)"TEMPO "T;:IFT<10THENPRINT" 
{SIN} " jrera 134 

260 IFT<0THEN580 :rem 179 

270 IFPEEK(N)<>160ANDN>0THENPOKEN-l024,RND( 1 )*16+48 


:rem 

54 

:rem 

251 

: rem 

64 

232 

srem 

52 

srem 

151 

srem 

63 

srem 

230 

srem 

66 

srem 

144 

srem 

40 

srem 

30 

srem 

122 

srem 

179 

srem 

245 

srem 

229 

srem 

88 

srem 

175 


:rem 

280 GOSUB370 :rem 
290 P-P+DsOC+1sIFP-NANDPEEK(N)<> 32THEN490 srem 
300 IFC-26THENC-1 :rem 
310 IFPEEK(P)>128THEN530 :rem 
320 POKELO(C),32sLO(C)«P :rem 
330 IFCO-0ANDRND(l)>.35THENN»0:GOTO420 :rem 
340 IFCO B lANDRND(1)>•99-SKTHENPOKEP-l024,RV:GOTO470 

:rem 

350 REM INPUT MOVIMENTI srem 
360 GOTO220 :rem 
370 GETA$:IFA$-"Q"ANDD<>40THEND«-40 ;rem 
380 IFA$*"I" ANDD <>1THEND*-1 srem 
390 IFA$■"P" ANDD <>-1THEND»1 srem 
400 IFA$»"Z"ANDDO-40THEND»40 irem 
410 RETURN :rem 
420 N«3072+INT(RND(1 ) *500) : IFPEEK (N) O32THEN420 srem 
430 IFN-PTHEN420 srem 
440 M*INT(RND(1)*9)+49sPOKEN/M+128sPOKEN-1024,68srem 
450 T$-TI$ srem 
460 TI$-T$sCO-lsGOTO220 srem 
470 POKEN,32sCO«0sN«0 srem 
480 GOTO220 srem 
490 V“PEEK(P)-176sPOKEP-1024,113sIFC“26THENC*1 srem 


230 

180 

38 

234 

137 

122 

36 

140 

196 

102 

21 

41 

49 

153 

117 

170 

198 

250 

15 

81 

215 

105 

192 


500 FORQ-lTOVsSOSC+1 SPRINT" {HOME} {RVS}PUNTEGGIO "SCsPOKE 
PfPEEK(P)-1 srem 52 

510 NEXT srem 213 

520 POKEP,160s POKEP-1024,Os POKEN,32sN s 3114s POKELO(C),32sL 
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0(C)-PsCO-OsGOTO300 :rem 22 

530 CA-CA+1:F$»TI$ srem 219 

540 F0RPQ*lT025s LO(PQ)*0:NEXTsC*!sCO-OsP-3485:POKE239,0sI 
FSC<1OTHENSC-O :rem 150 

550 IFSO9THENSC-SC-10 srem 92 

560 CO«OsTI$«F$ srem 60 

570 GOSUB80sD-lsP-3485sGOTO220 srem 18 

580 IFSC>15+(1/SK)AHDFG-0THENFG-1SGOTO800 srem 226 

590 REM FINE DEL GIOCO srem 234 

600 PRINT"{CLR}{ 15 DBS}{RVSjFINE GIOCO{OFF}"SCOLOR4,7,3s 
COLORO,2,7 srem 61 

610 PRINT"(GIU'} HAI REALIZZATO"SC"PUNTI " srem 58 

620 PRINT"(GIU'} AL LIVELLO "SK*50 :rem 75 

630 IFCA-OTHENPRINT"{GIU'} E NON TI SEI MAI SCONTRATOMI" 
SGOT0650 srem 93 

640 PRINT"{GIU'} E TI SEI SCONTRATO"CA"VOLTE";SIFCA-lTHEN 
PRINT"{SINjA"; srem 93 

650 PRINT"{GIU'}" srem 125 

660 IFSC<PEEK(840-f50*SK)THEN690 srem 53 

670 POKE840+50*SK,SCsPRINT"{GIU'} NUOVO RECORD."srem 34 

680 PRINT"{ 2 GIU'} VINCI UN'ALTRA PARTITA!"sFORX*lTO5000 
sNEXT:CA-0:GOTO5ff srem 201 

690 PRINT"(GIU'} PUNTEGGIO MASSIMO"PEEK(840+SK*50)SPRINT" 
{GIU'} AL LIVELLO"SK*50 srem 35 

700 PRINT"{ 2 GIU'} PREMI {RVS}G{OFF} PER GIOCARE" 

srem 83 

710 PRINT"{GIU'}{ 7 SPAZI}{RVS}S{OFF} PER SMETTERE" 

srem 65 

720 GETCSsIFC$*"G"THEN750 srem 163 

730 IFC$*"S"THENPRINT"{ 2 GIU'}{RVSjCIAOI"SEND srem 230 

740 GOTO720 srem 109 

750 PRINT" { 2 GIU'HRVSH 4 DES} SCEGLI SECONDO LA TUA AB 
ILITA' " SPOKE239,0sCLR srem 105 

760 PRINT"{GIU'}{ 11 DES}LIVELLOs DA 1 A 5" srem 59 

770 PRINT"{GIU'}{ 9 DES}(1 E’ IL PIU' FACILE)" srem 193 

780 GETA$ sIFA$<"1"ORA$>"5"THEN780 srem 78 

790 SK-VAL(A$)/50sGOTO40 srem 127 

800 FORZ-1T04SPRINT"{HOME}{ 10 GIU'}{ 14 DESjTEMPO EXTRA! 

"sFORX-lTO750sNEXT srem 69 

810 PRINT"{HOME}{ 10 GIU'}{ 14 DES}{ 12 SPAZI}" srem 189 

820 FORX*lTO750:NEXTs NEXTsTI$*"000030" srem 23 

830 FORZ-lTO25sPOKEL0(Z),160sPOKELO(Z)-1024,68sNEXTsT-60- 
VAL(TI$)SGOTO220 srem 214 

840 RQ4 ISTRUZIONI srem 160 

850 PRINT"{CLR}{WHT}{RVS} S N A K E "SCOLOR4,7,3SCOLORO,3 
,3sPRINTCHR$(8 )sPRINTCHR^(T 4) srem 47 

860 PRINT" { 2 GIU ' } { 2 SPAZI ISTRUZIONI s " srem 107 

870 PRINT"{GIU*} LO SCOPO DEL GIOCO E' INSEGUIRE IL 

{ 6 SPAZI}NUMERO LAMPEGGIANTE"; srem 145 

880 PRINT" SENZA URTARE CONTRO GLI OSTACOLI O CONTRO LA P 

ROPRIA CODA." srem 231 
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118 

87 

3 

105 

84 


890 PRINT" {GIU'} NELLO SCONTRO SI PERDONO 10 PUNTI." 

:rem 119 

900 PRINT"{ 14 SIN}{ 3 GIU'}{RVS}PREMI UN 
{GIU'}":POKE239,0 
910 GETA$:IFA$*""THEN91 0 
920 PRINT"{CLR}{RVS} S N A K E " 

930 PRINT"{ 2 GIU'}{ 2 SPAZI}ISTRUZIONI:" 

940 PRINT"{GIU'} USA I SEGUENTI TASTI:" 

950 PRINT"{ 2 GIU t }{ 12 SPAZI}{RVS}Q{OFF} 

ALTO " 

960 PRINT"{GIU'}{ 12 SPAZI}{RVS}P{OFF} PER ANDARE A DEST 
RA " :rem T39 

970 PRINT"{GIU'}{ 12 SPAZI}{RVSjl^OFF} PER ANDARE A SINI 
STRA" :rem f7 

980 PRINT"{GIU'}{ 12 SPAZI}{RVS}Z{OFF} PER ANDARE IN BA 
{ 2 S}0" :rem 34 

990 PRINT"! 2 GIU'} CON UN BUON PUNTEGGIO SI OTTIENE DEL 
{ 4 SPAZI}TEMPO SUPPLEMENTARE!1" :rera 179 

1000 PRINT"{ 3 GIU'}{ 14 SIN}{RVS}PREMI UN TASTO{OFF}":PO 


TASTO{OFF} 

:rem 
:rem 
:rem 
:rem 
:rem 
PER ANDARE IN 

:rem 95 


KE239,0 
1010 GETKEYA$ 

1020 PRINT"{CLR}" :GOTO750 

1030 DATA 3346,3347 f 3447 r 3446,3445,3345,3321 
1040 DATA 3322,3323,3324,3278,3448,3931 


:rem 
:rem 
: rem 
: rem 
: rem 


141 

240 

54 

146 

147 


1050 DATA 3930,3929,3928,3927,3925,3344,3320,3480,3481,34 
82,3483,3484 :rem 147 



Imparare l'aritmetica col computer 
può essere divertente! In questo 
programma educativo Arit, un sim¬ 
patico robot, propone addizioni o 
sottrazioni più o meno complesse, 
e il bambino che si trova alla tastie¬ 
ra deve risolvere se vuol vedere il 
suo amico attraversare lo schermo 
facendo strani rumori, per poi pre¬ 
sentare un nuovo quiz. 

Appena il programma inizia, com¬ 
pare un menu col quale si può se¬ 
lezionare l'operazione (addizione 


o sottrazione), il numero di cifre 
dei numeri (fino a 6), se si vogliono 
operazioni col riporto o senza, ed 
infine il numero di problemi da ri¬ 
solvere (fino a 9). Dopo aver effet¬ 
tuato la selezione si può giocare,- 
per dare ogni risposta si hanno a 
disposizione tre minuti oppure tre 
tentativi, dopo di che Arit fornisce 
la risposta esatta e propone un al¬ 
tro quiz. In alto a destra nello 
schermo compare il numero del 
problema. 
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Attenzione: la selezione effettuata 
tramite il menu resta valida finché 
non ne viene fatta una nuova ; ed 
è ogni volta memorizzata in una 
istruzione DATA del programma, 


che quindi si automodifica: se sal¬ 
verete il programma dopo aver fat¬ 
to la scelta desiderata, tale scelta 
verrà salvata con esso in quanto 
ne fa parte integrante. 


10 GOSUBl200:PRINT"{CLR}"SCOLORO,2:COLOR4,6,4:VOL8:READPl 
$,P2,P3$,P4:GO7O730 :rem 212 

20 READP1$,P2,P3$,P4 :rem 84 

30 GOTO140 :rem 49 

40 SOUND1,800,3:FORZ-1TOC:NEXT:RETURN srem 163 

50 F-INT(RND(1)*9)JRETORN srem 7 

60 FORL-500TO1000STEP3:SOUND1,L,1sNEXT:GOTOl070 srem 187 

70 SOUND1,500,60:RETURN srem 142 

80 PRINTM$;"{ 8 SPAZI}{RVS}[<7>]PREMI RETURN PER CAMBIARE 
RETURN srem 35 

90 PRINTM$;"{ 13 SPAZI}{RVS}[<7>]IMPOSTA LA CIFRA{OFF} 

{ 8 SPAZI}":RETURN srem 77 

100 IFF>5THENL-126:IFF>9THENL«108:M-1:IFF>30THENL-90:M-0s 
IFF> 50THENL-108:M-1 srem 179 

110 IFF>99THENF*0 srem 249 

120 POKEE,L:POKEE+l,L:GOTO440 srem 12 

130 PRINT"{HOME}":PRINTTAB(L)?M$;0$;:GOSUB40:PRINTN$:RETU 
RN srem 185 

140 POKE1343,1:M$-" N{< 2 T>]M {GIU'}{ 6 SIN} M{ 2 Z}N 
(GIU'}{ 6 SIN} {<F>jLei<D>} {GIU'H 6 SIN} £{<Q>] 

I<W>}{<*>} {GIU'}{ 6 SIN}{ 2 SPAZI}OP" srem 182 

150 M$-M$+"{ 2 SPAZI}{GIU'}{ 6 SIN} {RVST.£{ 2 SPAZI}{<*>] 
{OFF} " srem 15 

160 N$»"{ 6 SIN} { 4 W) ":0$“"(GIU'}{ 6 SIN} { 4 Z} " 

srem 233 

170 PRINT"{CLR}{ 9 GIU'}{RVS}{GRN} M-MENU- 

-DEL=CANCELLA {OFF}{HOME}" srem 242 

180 L8-48:X-RND(-TI)SGOTO1070 srem 207 

190 POKEl345,255:PRINT"{HOME}":R«-1024:S-3609:Y-P2sE-3154 
:RW= 16 :wr=rw- 4 srem 97 

200 IFP2-3THENRW-17:WR-RW~5 srem 187 

210 IFP1$«"-"0RP2»10RP2>3THENY«2 srem 145 

220 CHARl,17,RW+1,"{ 7 SPAZI}" srem 24 

230 FORI-P2TO1STEP-l:A(I)-0:S(I)-0:FORK-1TOY:GOSUB40:GOSU 
B50 srem 27 

240 A (I) “A(I )+F: S(I ) *S (I) -F srem 190 

250 M-(K*40)+I:POKER+S+M,0:POKES+M,F+48:IFK>1THENL1-F 

srem 186 

260 NEXT:IFPl$*"-"THENGOSUB680:GOTO280 srem 77 

270 L-A(I):N-9:GOTO290 :rem 9 

280 S(I)-S(I)+2*L1:L-S(I)sN-0 srem 90 

290 GOSUB600:A(I)*L srem 79 
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300 

NEXTI 

:rem 

27 

310 

FORK-1TOY:FORI-1TOP2 

:rem 

45 

320 

M“K*40+I:IFPEEK(S+M)>48THEN350 

:rem 

231 

330 

IFI-P2THENV-1 

srem 

32 

340 

POKES+M,32:NEXT 

srem 

155 

350 

NEXTK:IFV»1THENV-0: GOTO!90 

srem 

174 

360 

A“0:U“-1sFORI*P 2T01STEP-1:U-U+1:IFPl$-"-*THENA-A+S(I) 


*10tU:GOTO380 

srem 

243 

370 

A“A+A(I)*10 TU 

srem 

157 

380 

NEXT 

srem 

218 

390 

A-INT(A):L2-0:IFA<0THEN190 

srem 

251 

400 

FORI-2TOY:CHARl,17,WR+1,■":PRINT"{BLK}"P1$ : 

NEXT 




srem 

190 

410 

POKEl63,0:POKEl64,0:POKEl65,0 

srem 

123 

420 

FORK-OTOP2sCHARl,17+K,RW,"C"sNEXT 

srem 

no 

430 

U-LEN(STR$(A))-2:I«0:Li“0:FORK“P2TOP2-USTEP 

-1 




• srem 

231 

440 

FORM-15T017:POKEM+E+R+280,0:POKEM+E+280,ASC(MID$(TI$, 


M-11))+12 8 :NEXT 

srem 

212 

450 

IFTI$“"000300"THENGOSUB70:GOTO560 

srem 

177 

460 

GETA$:IFA$-""THENL-124:F“F+1sGOTOlOO 

srem 

64 

470 

IFASC(A$)“20THENCHAR1,17,RW+1,"{ 7 SPAZI}": 

GOTO430 



srem 

19 

480 

IFA$«"M"THEN730 

srem 

39 

490 

IFA$<"0"ORA$>"9"THEN450 

srem 

202 

500 

PRINT"{GIU':Li“INT(Li+VAL(A$)*10tI):I“I+1 

srem 

127 

510 

CHARl,17+K,RW+l,A$:NEXT 

srem 

42 

520 

IFLl“ATHEN60 

srem 

182 

530 

IFLl OATHENGOSUB70 

srem 

117 

540 

L2-L2+1:IFL2>2THEN560 

srem 

175 

550 

GOTO420 

srem 

105 

560 

V“0:AN$“STR$(A):L-LEN(AN$):IFL>P2+lTHENV“l 

srem 

1 

570 

IFL-1<P2THENV“L-1-P2 

srem 

174 

580 

CHARl,18-V,RW+l,"{RVS:PRINTMID$(AN$,2,8) 

srem 

66 

590 

FORK-1T05000: NEXT:GOTO 190 

srem 

44 

600 

IFP3$“"N"ANDPl$»"+"THEN630 

srem 

135 

610 

GOSUB50:X»1:IFL<N+FTHEN650 

srem 

86 

620 

RETURN 

srem 

120 

630 

IFL>NTHENX--1:GOTO650 

srem 

48 

640 

RETURN 

srem 

122 

650 

L“0:FORK“lTOY:M“(K*40)+1:F-PBEK(S+M)+X:IFF<48THENF«48 



srem 

226 

660 

IFF>57THENF-57 

srem 

57 

670 

POKES+M,F:L-L+(F-48):NEXT:GOTO600 

srem 

245 

680 

IFP3$-"N"THEN71 0 

srem 

106 

690 

IFI“1ORF>“L1THENRETURN 

srem 

211 

700 

GOTO720 

srem 

105 

710 

IFF<LiTHENRETURN 

srem 

53 

720 

POKES+M,Ll+48:POKES+M-40,F+48:S(I)“(-F)-Li : 

Li“F:RETUR 


N 

srem 

199 

730 

M$“"{HOME}{ 16 GIU'}" 

srem 

175 
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740 PRINT" {CLR} {BLK} { 3 GIO'H 10 DES}OPERAZIONE (+/-)••• 
";P1$ srem 34 

750 PRINT" {GIO'H 10 DES} N . CIFRE (MAX-6) . . . ";P2:rem 118 
760 PRINT" {GIU' }{ 10 DES}RIPORTO. ";P3$ 


srem 218 

770 PRINT"{GIU'}{ 10 DES}N* PROBLEMI (MAX-9)";P4:rem 228 
780 PRINT"{GIU'}{ 10 DES}{ 4 SPAZI}{ 14 E}" srem 105 

790 GOSUB80sPRINT"{ 3 GIU'} { 10 DES}{ 2 SPAZI}[<7>]{RVS} 
(I PER INIZIARE)"; srem 171 

800 PRINT"[<7>]{HOME}{ 8 DESjSCEGLI CON CRSR (SU/GIU') 

{BLK}" srem 147 

810 M-3202 srem 234 

820 IFM1-3442THENM-3202 srem 49 

830 FORI-MTOM+20:X-PEEK(I)sPOKEI,X+128:NEXT srem 213 

840 GETKEYA8 srem 202 

850 IFVAL(A$)<10ANDVAL(A$)>0THEN970 srem 11 


860 IFA$-"+"ORA$-"-"ORA$-"S"ORA$-"N"ORPEEK(2038)-lTHENA$« 



"1"SGOTO970 

:rem 

76 

870 

IFA$-"{GIU’}"THEN920 

:rem 

239 

880 

IFA$“"{SU}"THEN960 

:rem 

116 

890 

IFA$O"I"THEN840 

:rem 

103 

900 

PRINT"{WHT}{CLR}{ 3 GIU'}1060 DATA";Pi $ 

»"f"»P2»« f 

" ;P3 


$;"»";P4s PRINT"RUN20";"{HOME}" 

:rem 

73 

910 

POKE239,3:POKEI319,13:POKEl320,13:POKEl321,13:END 




:rem 

29 

920 

M2-M2-1sK-80 

:rem 

94 

930 

M-M+Ks FORI“M-KTOM-K+20s X-PEEK(I):POKEI, 

X-l 28:NEXT:IFM 


>3442THENM*3202 

:rem 

240 

940 

IFM<3202THENM-3442 

:rem 

2 

950 

ON(M-3112)/80GOSUB80,90,80,90:GOTO820 

srem 

23 

960 

M2-M2-1:K--80:GOTO930 

srem 

158 

970 

ON(M-3202)/80GOTO1000,1020,1050 :IFPl$«" 

•f"THENPl $“ 

m • 


GOTO990 

srem 

242 

980 

Pl$-"+" 

srem 

242 

990 

POKEM+20,ASC(Pl$)+128:GOTO840 

srem 

121 

1000 IFVAL(A$)>6THENA$»"6" 

srem 

168 

1010 P2-VAL(A$):POKEM+20,P2+176sGOTO840 

srem 

227 

1020 IFP3$«"N"THENP3$“"S"sGOTOl 040 

srem 

170 

1030 P3$-"N" 

srem 

58 

1040 POKEM+20,64+ASC(P3$):GOTO840 

srem 

109 

1050 P4-VAL(A$):POKEM+20,P4+176:GOTO840 

srem 

235 

1060 DATA+ , 2 ,N, 2 

srem 

66 


1070 C-20s PRINT"{HOME}{BLK}":FORL-0TO33sGOSUBl30sNEXT 


srem 2 

1080 FORL-32TOOSTEP-1sGOSUBl30 s NEXTsPRINT"{BLU}"sC-40 

srem 26 

1090 L8-L8+1sIFL8-48>P4THENll 50 srem 9 

1100 M«14335+8*L8:PRINT"{HOME}"; srem 182 

1110 FORMI-MTOM+7sX-PEEK(Mi)sFORL-1T08:C-32:X-X*2:IFX>255 
THENX-X-256:C-209 srem 85 
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1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 


1210 

1220 

1230 


PRINTTAB(29)"{BLK}"CHR$(C); :NEXT:PRINT"{ 8 SIN} 

{GIU':NEXT :rem 185 

IFL8-48>P4THEN1150 :rem 41 

GOTO190 :rem 153 

PRINT"{CLR}":CHARl,4,12,"" :rem 19 

PRINT"{ 2 SPAZI}{RVS}{BLK} VUOI GIOCARE ANCORA (S/N) 
? {OFF}" S 

GETZ$ :IFZ$=""OR(Z$<>"S"ANDZ$<>"N")THENl170 : 
IFZ$*"S"THENRESTORE:CLR:GOTOl0 : 

END : 

COLORO,2:PRINT"{CLR}{WHT}{ 3 GIU'}MO"sPRINT" 

{ 5 GIU'}TD000 D6FF 3800":PRINT"{GIU'}X":PRI 
{GIU'}GOl230{HOME}" : 

POKE51, 0 :POKE55,0: POKE52, 56 :POKE56 ,56 : 

POKE239 ,4 :FORI»l319TOl322 :POKEI,13:NEXT:END: 

RETURN : 


rem 

30 

rem 

197 

rem 

237 

rem 

162 

NT" 

rem 

1 54 

rem 

182 

rem 

158 

rem 

166 



» 

* 


Hai deciso di smaltire i chili di trop¬ 
po accumularti durante le libagioni 
estive? Vuoi sapere se cinque 
hamburger, sette coca cola e dodi¬ 
ci caffè rappresentano una DIETA 
giornaliera EQUILIBRATA? 

Se ti capita di porti queste ed altre 
domande sulla tua alimentazione, 
ecco la terza parte del programma 
che fa per te, permettendoti di esa¬ 
minare giornalmente la tua dieta. 
Le prime due parti del programma 
sono state pubblicate sui due nu¬ 
meri procedenti della tua rivista: se 
ancora non le hai digitate questo è 
il momento di farlo. Se invece hai 
già una copia di queste su disco o 
nastro, carica STOP BUG, attivalo 


con RUN e carica le prime due par¬ 
ti; ora sei pronti per ultimare il lavo¬ 
ro di digitazione. 

Terminata la battitura della terza 
parte, è il momento (ovviamente 
dopo aver salvato la versione 
completa di DIETA EQUILIBRATA) 
di dare il primo RUN. Come potrai 
osservare il programma contiene le 
istruzioni per il suo corretto utiliz¬ 
zo, peraltro molto semplice. 
Ricordiamo infine ai possessori del 
Plus/4 che DIETA EQUILIBRATA è 
adatto anche a questo computer 
con una semplice modifica illustra¬ 
ta nel commento della prima parte 
pubblicata sul numero 35. 


19 







4440 REM:SUB 7*UOVA-FORMAGGI :rem 233 

4450 DATA"UOVA GALLINA",156,0,11.2,0.8 f "A Bl B2 PP 

{ 3 SPAZI}",13 :rem 250 

4460 DATA"UOVA ANITRA",186,0,15,0.7,"A Bl B2 PP 

{ 3 SPAZI}",12.2 : rem 199 

4470 DATA"UOVA OCA",186,0,14.2,1,"A Bl B2 PP{ 3 SPAZI}",1 

3.8 :rem 222 

4480 DATA"UOVA TACCHINA",143,0,10.2,0,"A Bl B2 PP 

{ 3 SPAZI}",12.8 :rem 58 

4490 DATA"ASIAGO",370,0,27,0,"{ 13 SPAZI}",32 :rem 247 

4500 DATA"CACIOTTA",360,0,29,0,"{ 13 SPAZI}",25 :rem 134 

4510 DATA"CAMEMBERT",290,0,23,1.8,"A Bl B2 PP{ 3 SPAZI}", 
19 treni 253 

4520 DATA"CAPRINO",275,0,16,0,"{ 13 SPAZI}",33 treni 76 

4530 DATA" EMMENTAL" , 395,0,30,3.4, "A Bl B2 PP{ 3 SPAZI}", 
28 treni 12 

DATA"FIOR DI LATTE",260,0,20,0,"A Bl B2 PP 
{ 3 SPAZI}",20 treni 50 

DATA"FONTINA",345,0,27,0,"A Bl B2 PP{ 3 SPAZI}",25 

treni 27 

DATA"GORGONZOLA",350,0,30,0,"A Bl B2 PP{ 3 SPAZI}",2 
0 treni 0 

DATA"GROVIERA ITALIA",390,0,29,1.5,"A Bl B2 PP 
{ 3 SPAZI}",30 treni 131 

DATA"GRUYERE SVI ZZERÒ",410,0,35,1,"A Bl B2 PP 
{ 3 SPAZI}",23 treni 181 

DATA"MASCARPONE",455,0,47,0,"A Bl B2 PP{ 3 SPAZI}",8 

treni 206 

DATA”MOZZARELLA",250,0,18,4,"A Bl B2 PP{ 3 SPAZI}",1 
8 

DATA"PARMIGIANO REGG.",390,0,26,3.7,"A Bl B2 PP 
{ 3 SPAZI}",35 

DATA"PECORINO MATURO",370,0,28,1,"A Bl B2 PP 
{ 3 SPAZI}",28 


4540 

4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 

4640 DATA"RICOTTA PECORA",320,0,30,4,"A Bl B2 PP 
{ 3 SPAZI}",9 

4650 DATA"RICOTTA VACCA",135,0,8,4,"A Bl B2 PP{ 3 SPAZI} 

",12 treni 77 

4660 DATA"STRACCHINO",305,0,24.8,0,"A Bl B2 PP{ 3 SPAZI} 

”,20.6 treni 186 

4670 REM:SUB 3*PRIMI treni 183 

4680 DATA"BRODO CARNE",45,0,5,0,"{ 12 SPAZI}",0.2 

treni 233 

4690 DATA"PASTINA BRODO",205,5,5,35,"{ 11 SPAZI}",0 

treni 156 

4700 DATA"MINESTRA VERD .",350,15,10,50,"{ 14 SPAZI}", 0 

treni 43 

4710 DATA"PASTA E FAGIOLI" ,410,20,10,60,"{ 14 SPAZI}", 0 

treni 29 



srem 

10 

"A Bl 

B2 PP 



srem 

171 

Bl B2 

PP 



srem 

68 

PP{ 3 

SPAZI} 

" , 26 


srem 

212 

1 B2 

PP 



srem 

165 
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4720 DATA"PASSATO VERDURE",350,15,10,50,"{ 14 SPÀZI}",0 

:rem 163 

4730 DATA"PASTA DI SEMOLA",355,11,1,75,"{ 2 SPAZI}Bl B2 P 

P{ 3 SPAZI}",0 :rem 146 

4740 DATA"PASTA UOVO",365,11,1,75,"{ 2 SPAZI}Bl B2 PP 

{ 3 SPAZI}",3 : rem 146 

4750 DATA"P.AGLIO-OLIO",525,11,20,75,"{ 13 SPAZI}",0 

:rem 192 

4760 DATA"P.BURRO-PARMIG.",600,11,25,75,"{ 13 SPAZI}",7 

:rem 160 

4770 DATA"P.TONNO",570,11,20,75,"{ 13 SPAZI}",11.5 

, :rem 25 

4780 DATA"P.CARBONARA",665,11,28,76,"{ 13 SPAZI}",16.5 

:rem 40 

4790 DATA"P.POMODORO",525,11,20,75,"{ 13 SPAZI}",0 

:rem 103 

4800 DATA"P.DISPERATA",550,11,20,80,"{ 13 SPAZI}",2 

:rem 137 

4810 DATA"P.AMATRICIANA",645,11,32,75,"{ 13 SPAZI}",3 

treni 20 

4820 DATA"MINESTRONE",490,20,10,80,"{ 13 SPAZI}",0 

srem 116 

4830 DATA"P.VONGOLE",585,11,22.5,75,"{ 13 SPAZI}",10 

:rem 169 

4840 DATA"P.RAGÙ'",570,11,22,75,"{ 13 SPAZI}",7 :rem 83 

4850 DATA"P.PESTO",535,12,14,90,"{ 13 SPAZI}",0 :rem 130 

4860 DATA"P.4 FORMAGGI",845,11,44,75,"{ 12 SPAZI}",27 

:rem 186 

4870 DATA"P.FUNGHI",560,14,20,81 ,"{ 12 SPAZI}",0srem 183 

4880 DATA"TORTELLINI-RAGU'",560,6,35,38,"{ 13 SPAZI}",17 

treni 19 

4890 DATA"TORTELLINI-BURRO",530,6,35,38,"{ 11 SPAZI}",10 

treni 62 

4900 DATA”RISO BURRO PARM.",560,7,21,78,"{ 12 SPAZI}",7 

treni 119 

4910 DATA”RISO RAGÙ'",600,7,25,78,"{ 13 SPAZI}",8 

treni 230 

4920 DATA"RISOTTO POMODORO",565,7,25,78,"{ 13 SPAZI}",0 

treni 249 

4930 DATA"RISOTTO ZAFFER.",575,7,26,78,"{ 14 SPAZI}",0 

treni 121 

4940 DATA"GNOCCHI RAGÙ’",805,13,35,95,"{ 13 SPAZI}",15 

treni 9 

4950 DATA"GNOCCHI ROMANA",750,12,35,85,"{ 12 SPAZI}",12 

treni 108 

4960 DATA"RAVIOLI RAGÙ'",715,7,40,50,"{ 13 SPAZI}",31 

treni 234 

4970 DATA"RAVIOLI BURRO",590,7,30,50,"{ 12 SPAZI}",23 

treni 32 

4980 DATA"POLENTA",375,10,4,75,"{ 13 SPAZI}",0 srem 98 
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4990 DATA"PI ZZA MARGHERITA",615,21 ,25,77,"{ 13 SPAZI}",0 

:rem 246 

5000 REM:SUB 9*BEVANDE :rem 37 

5010 DATA"LATTE CAPRA",71,0,4.5,4.4,"A Bl B2 PP C ",3.3 

:rem 181 

5020 DATA"LATTE PECORA",105,0,7.5,4.4,"A Bl B2 PP C ",5.6 

:rem 63 

5030 DATA"LATTE CAVALLA",47,0,1.6,6,"A Bl B2 PP C ",2.2 

:rem 227 

5040 DATA"LATTE ASINA",46,0,1.5,6.2,"A Bl B2 PP C ",2.1 

:rem 185 

5050 DATA"L.VACCA INTERO",64,0,3.5,4.8,"A Bl B2 PP C ",3. 

5 :rem 156 

5060 DATA"L.SEMISCREMATO",49,0,1.8,5,"A Bl B2 PP C ",3.5 

:rem 133 

5070 DATA”L.SCREMATO",36,0,0.2,5.3,"{ 2 SPAZl}Bl B2 PP C 
",3.6 :rem 110 

5080 DATA"L.CONDENSATO",340,0,9,56.5,"A Bl B2 PP C ",8.7 

:rem 85 

5090 DATA"THE",0,0,0,0,"{ 8 SPAZl}PP{ 3 SPAZI}",0 

:rem 233 

5100 DATA"CAFFE'",0,0,0,0,"{ 8 SPAZI}PP{ 3 SPAZI}",0 

:rem 124 

5110 DATA"VINO 8 GR.",48,0,0,12,"{ 13 SPAZI}",0 :rem 11 
5120 DATA"VINO 10 GR.",60,0,0,15,"{ 14 SPAZI}",0:rem 50 
5130 DATA"VINO 12.5 GR.",70,0,0,19,"{ 13 SPAZI}",0 

:rem 157 

5140 DATA"VERMOUTH 20 GR.",190,0,0,47.5,"{ 13 SPAZI}",0 

:r em 15 

5150 DATA"LIQUORE 30 GR.",180,0,0,45,"{ 13 SPAZI}",0 

:rem 82 

5160 DATA"LIQUORE 40 GR.”,240,0,0,60,"{ 13 SPAZI}",0 

:rem 78 

5170 DATA"BIRRA 5 GR.",30,0,0,7.5,"{ 13 SPAZI}”,0 

:rem 112 

5180 DATA"BIRRA 10 GR.",60,0,0,15,"{ 13 SPAZI}",0 

:rem 108 

5190 REM:SUB 10*DOLCI :rem 205 

5200 DATA"BABA' RHUM",240,5.9,5.7,41.4,"{ 13 SPAZI}",0 

:rem 157 

5210 DATA”BRIOCHE",425,7.2,18.3,58.4,"{ 13 SPAZI}",0 

:rem 105 

5220 DATA"CANNOLI CREMA",380,6.2,20.7,42.2,"{ 13 SPAZI}”, 
0 :rem 205 

5230 DATA"CARAMELLE DURE",365,0,0,91.6,"{ 13 SPAZI}",0 

:rem 38 

5240 DATA"CARAMELLE'MOU'",445,2.1,17.2,71•!,"{ 13 SPAZI} 
",0 :rem 39 

5250 DATA”CIOCC.FONDENTE",555,5.8,34,56.7,"A Bl B2 PP 

{ 3 SPAZI}",0 :rem 193 
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5260 DATA"CIOCC.LATTE",575,5.8,37.6 f 50.8,"A Bl B2 PP 

{ 3 SPAZI}",3 :rem 80 

5270 DATA"CIOCC.GIANDUIA",520,10,28.8,52,"A Bl B2 PP 

{ 3 SPAZI}",3 :rem 115 

5280 DATA"CREMA NOCCIOLE",550,4.9,32.4,58.1,"{ 2 SPAZljBl 
B2{ 6 SPAZI}",2 :rem 14 

5290 DATA"CROSTATA",350,5,8,65,"{ 13 SPAZI}",0 srem 123 
5300 DATA"GELATO LATTE",218,2.2,13.7,20,"{ 13 SPAZI}",2 

srem 50 

5310 DATA"GHIACCIOLO ARAN.",145,0,0,36.5,"{ 12 SPAZl}C ", 
0 srem 206 

5320 DATA"GOMME DA MAST.",280,0,0,70,"{ 13 SPAZI}",0 

srem 98 


5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

554Q 


DATA"MARMELLATE",235,0.5,0,58.7,"{ 2 SPAZl}Bl B2 PP 
C ",0 srem 130 

DATA"MERENDINE MARM.",375,5.5,8.3,69.8,"{ 13 SPAZI} 
"#0 srem 61 

DATA"MEREND.PARCITE",425,6,15,67,"{ 13 SPAZI}",0 

srem 50 

DATA”MEREND.PAN DI SP.",470,8.3,22,60,"{ 13 SPAZI}", 
0 srem 204 

DATA"MIELE",320,0.6,0,80,"{ 5 SPAZI}B2 PP C ",0 

srem 45 

DATA"PANETTONE",345,6.4,10.7,56,"{ 13 SPAZI}",0 

srem 189 

DATA"TORTA MARGH.",380,9,10.4,63,"{ 12 SPAZI}",0 

srem 210 


DATA"TORRONE",490,10.8,26.8,52,"{ 13 SPAZI}",0 

srem 101 

DATA"ZUCCHERO",400,0,0,100,"{ 13 SPAZI}",0 srem 140 
REMsFINE DATA srem 37 

REMsRICHIESTA INTRODUZIONE srem 48 

PRINT"{ 16 GIU'}{ 8 DBS}VUOI UN'INTRODUZIONE?(S/N) 


srem 139 

GETJH$sIFJH$«""THEN5450 srem 97 
IFJH$»"S"THENGOSUB5800 srem 100 
IFJH$O"S"ANDJH$O"N"THEN5450 srem 184 
PRINT"{YEL}" srem 64 
PRINT" {CLRHWHTM 10 GIU'} VUOI CHE LE CARATTERI STIC 
HE DI OGNI" srem 162 
PRINT"{GIU'} ALIMENTO SCELTO SIANO RIPRODOTTE" 


srem 85 

PRINT"{GIU'}{ 11 SPAZI}DALLA STAMPANTE ? (S/N){YEL}" 

srem 182 

GETCA$sIFCA$-""THEN5520 srem 65 

IFCA$O"S"ANDCA$O"N"THEN5520 srem 151 

IFCA$-"S"THENI1-I1+1sI2-2:IFI1<2THENGOSUB6260 

srem 231 
srem 34 
srem 52 


55£0 REM:MENU 
5560 PRINT"{CLR}" 
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5570 PRINT"{ 2 GIU'}"TAB(18)"{RVSjMENU" srem 224 

5580 PRINT"{ 2 GIU'}"TAB(6)"{RVS}1{OFF}{ 3 SPAZI}PANE E S 
IMI lari " :rem 255 

5590 PRINTTAB(6)"{RVS}2{OFP}{ 3 SPAZI}PRIMI" :rem 89 

5600 PRINTTAB(6)"{RVS}3{OFF}{ 3 SPAZI}CARNE" :rem 58 

5610 PRINTTAB(6)”{RVS}4{OFF}{ 3 SPAZI}PESCE" :rem 67 

5620 PRINTTAB(6)"{RVS}5{OFF}{ 3 SPAZI}ORTAGGI LEGUMI” 

:rem 165 

5630 PRINTTAB(6)"{RVS}6{OFF}{ 3 SPAZI}UOVA & FORMAGGI" 

:rem 132 

5640 PRINTTAB(6)"{RVS}7{OFF}{ 3 SPAZI}FRUTTA" srem 175 
5650 PRINTTAB(6)”{RVS}8{OFF}{ 3 SPAZI}BEVANDE" :rem 208 

5660 PRINTTAB(6)"{RVS}9{OFF}{ 3 SPAZI}DOLCI" :rem 72 

5670 PRINTTAB(6)"{RVS}10{OFF}{ 2 SPAZI}CONDIMENTI" 

* : rem 240 

5680 PRINTTAB(6)"{GIU'}{RVS}11{OFF}{ 2 SPAZI}COMPUTO CALO 
RIE TOTALI E" :rem 81 

5690 PRINTTAB(6)"{ 4 SPAZI}VALUTAZIONE DIETA GIORNALIERA" 


:rem 233 

5700 A%-0sOPEN2,0,l srem 246 

5710 PRINT"{ 2 GIU'} BATTI IL NUMERO CORRISPONDENTE AL" 

srem 91 

5720 PRINT"{GIU’} TIPO DI ALIMENTI CHE TI INTERESSA 

{ 2 SPAZI}";:INPUT#2,A$:CLOSE2 srem 180 

IFASC(A$)<48ORASC(A$)>57THENA$«"":GOT05560 srem 195 

At«VAL(A$) srem 12 

IFA%>110RA%<1THEN5560 srem 218 


5730 

5740 

5760 

5770 


ONA%GOSUB900,990,1110,1230,1340,1450,1570,1680,1 810, 


5780 

5790 

5800 

5810 

5820 

5830 


1920,2030 

IFTU$«"N"THENTU$«""sGOTO2250 
GOTO5560 

REM:INTRODUZIONE 
PRINT"{CLR}{YEL}{GIU'}" 
PRINTCHRS (14) 


srem 

srem 

srem 

srem 

srem 

srem 


91 

184 

222 

149 

225 
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PRINTTAB(11)"{GIU•}***{RVS}INTRODUZIONE{OFF}***’ 

srem 

5840 PRINT"{GIU'}QUESTO PROGRAMMA FORNISCE INFORMAZIONI 

srem 168 


134 

N 


5850 PRINT"QUALITATIVE E QUANTITATIVE SUI PRINCI-" 

srem 179 

5860 PRINT"PALI ALIMENTI." srem 75 

5870 PRINT"{GIU'}PER OGNI ALIMENTO SONO FORNITE CALORIE" 

srem 248 

5880 PRINT"TOTALI,PROTEINE ANIMALI E VEGETALI," srem 194 

5890 PRINT"GRASSI,CARBOIDRATI,PRINCIPALI VITAMINE.” 

srem 98 

5900 PRINT"{GIU'}SI SONO PRESE IN CONSIDERAZIONE LE VI-" 

srem 155 

5910 PRINT"TEMINE A,Bl,B2,{ 2 P},C,DATO CHE SONO LE " % 

srem 13 
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5920 PRINT"SOLE PER LE QUALI,IN PRATICA,POSSONO":rem 236 
5930 PRINT"VERIFICARSI FENOMENI PALESI DI CARENZA." 

srem 167 

5940 PRINT"{GIU'}IL PROGRAMMA ESPRIME UNA VALUTAZIONE " 

srem 186 

5950 PRINT"RELATIVAMENTE ALLA DIETA {SPAZI} GIORNALIERÀ ." 

srem 241 

5960 PRINT"LA TUA DIETA GIORNALIERA VERRÀ’ ANALIZ-" 

srem 195 

5970 PRINT"ZATA E VALUTATA SULLA BASE DELL'EQUILI-" 

srem / 87 

5980 PRINT"BRIO DEI PRINCIPI NUTRITIVI." srem 255 

5990 PRINT"{GIU’}{ 2 SPAZI}(PREMI UN TASTO PER CONTINUARE 
)» srem 20 

6000 GETYY$SlFYY$«""THEN6000 5 rem 145 

6010 PRINT"{CLR}" :rem 43 

6020 PRINT"{GIU'}l DATI RELATIVI AGLI ALIMENTI SONO RI-" 

srem 108 

6030 PRINT"CAVATI DA TABELLE E DAI L.A.R.N.(LIVEL-" 

srem 25 

6040 PRINT"LI DI ASSUNZIONE RACCOMANDATI DI NUTRÌ-" 

srem 254 

6050 PRINT"ENTI)ELABORATI DALL'ISTITUTO NAZIONALE" 

srem 242 

6060 PRINT"DI NUTRIZIONE DI ROMA." srem 43 

6070 PRINT"(RVS)N.B.S(OFF)LE VALUTAZIONI SULL'EQUILIBRIO 
E" srem 112 

6080 PRINT"LA'CORRETTEZZA'DELLA DIETA SONO RIFERÌ-" 

srem 205 

6090 PRINT"TE AD INDIVIDUI CON CONSUMI CALORICI"srem 167 
6100 PRINT"'MEDI’E CON MODERATA ATTIVITÀ' FISICA A" 

srem 244 

6110 PRINT"SECONDA DEL SESSO,DELL'ETÀ' E DEL PESO." 

srem 236 

6120 PRINT"QUINDI SE SVOLGI UN'ATTIVITÀ' FISICA"srem 86 
6130 PRINT"INTENSA O HAI CONSUMI CALORICI MOLTO " 

srem 189 

6140 PRINT"DIFFERENTI RISPETTO ALLA MEDIA,NON " srem 135 

6150 PRINT"PRENDERE TROPPO ALLA LETTERA LE VALUTA-" 

srem 140 

6160 PRINT"ZIONI FINALI SULLA TUA DIETA I" srem 205 

6170 PRINT"(GIU'}IL PROGRAMMA,AD OGNI MODO,FORNISCE UNA " 

srem 225 

6180 PRINT"NOTEVOLE BASE DI INFORMAZIONI ED INDI-" 

srem 35 

6190 PRINT"CAZIONI PER IMPARARE AD ALIMENTARSI{ 5 SPAZI} 
CORRETTAMENTE." srem 175 

6200 PRINTsFORGG-1TO40sPRINT"*";sNEXTsPRINT srem 41 

6210 PRINT"{ 4 SPAZI}(PREMI UN TASTO PER CONTINUARE)" 

srem 245 

srem 149 
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6220 GETXX$sIFXX$«""THEN6220 



6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6400 


6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 


PRINTCHRS(142) srem 65 

RETURN :rem 172 

REM:PINE INTRODUZIONE srem 183 

PRINT"{ 2 GIU'}SE NON LO HAI GIÀ' PATTO,INSERISCI" 

:rem 252 

PRINT"{GIU'}LA CARTA E ACCENDI LA STAMPANTE" 

:rem 15 

PRINT"{ 2 GIU'}{ 3 SPAZI}(PREMI UN TASTO PER CONTINU 
ARE){YEL}" srem 60 

GETW$:IPW$-""THEN6290 srem 241 

RETURN :rem 169 

REM:ROUTINE STAMPA TABELLA DIETA GIORNALIERA 

:rem 93 

OPEN8,4 :rem 149 

P$-CHR$(16) sPl$-P$+CHR$(50)+CHR$(55) :F$-"-> ":P2 

$«P$+CHR$(52)+CHR$(56) :rem 48 

PRINTI8:PRINT#8 :rem 215 

PRINT# 8,CHR$(14)CHR$(16)CHR$(49)CHR$(48)"TABELLA DEL 
LA DIETA GIORNALIERA" :rem 254 

PRINTI8:PRINTI8,CHR$(15)"{ 2 SPAZI}GLI ALIMENTI DA T 

E SCELTI "; :rem 77 

PRINT#8,"CONTENGONO COMPLESSIVAMENTE:" :rem 27 

PRINT# 8 :PRINT# 8,CHR$(16)CHR$(51)CHR$(51)"CALORIE"P2$ 
» %" :rem 130 

PRINT#8:PRINT#8," CALORIE TOTALI"Pl$ ;F$;CT;P2$" 100" 

:rem 234 

PRINT#8:PRINT#8," PROTEINE ANIMALI"Pi $ ;P$;AT;P2$;LEP 

T$(STR$(H),5) :rem 146 

PRINT*8 :PRINT#8," PROTEINE VEGETALI"P1$ ;F$?VT;P2$;LE 
FT$(STR$(J) f 5) :rem 0 

PRINT#8:PRINT#8," GRASSI"Pi$;F$;GT;P2$;LEFT$(STR$(K) 
,5) :rem 5 

PRINT#8:PRINT#8," CARBOIDRATI"Pi $ ;P$;ZT;P2$ ; LEFT$(ST 
R$(L)/5) srem 117 

PRINT#8SPRINT#8," VITAMINE"Pi$;P$;VT$ srem 248 

PRINT#8 s PRINT#8 SCLOSE8 srem 193 

OPEN4,4sCMD4sREM APERTURA PILE PER STAMPA VALUTAZ.DI 
ETÀ srem 227 

IPET-1THEN3000SREM CONTROLLO PER STAMPA GIUDIZI ETÀ' 

<12 srem 149 

IFD-1THEN2640SREM CONTROLLO PER STAMPA GIUDIZI ETÀ'> 
■12 srem 137 
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SCALDA IL JOYSTICK 
E GASATI CON 



IL VERO GIOCO COMINCIA ADESSO 












In questo gioco vesti i panni di un 
cavaliere rimasto intrappolato nei 
sotterranei di un castello incantato. 
Questi sotterranei sono formati da 
diverse stanze comunicanti tra lo¬ 
ro, e sono popolati da un gran nu¬ 
mero di mostri pericolosissimi. 
Scopo del gioco è quello di muo¬ 
versi da una stanza all'altra ucci¬ 
dendo il maggior numero possibile 
di mostri. La tua situazione è indi¬ 
cata dai seguenti dati: la fatica, che 
vale inizialmente 100 e diminuisce 
se ti muovi o combatti; le ferite, 
che partono a neh'esse da 100 e 


diminuiscono nel combattimento,- 
il peso, che viene deciso casual¬ 
mente all’inizio del gioco e deter¬ 
mina la tua resistenza alla fatica. 
Usa i tasti da 1 a 9 per avanzare di 
altrettanti passi, i due tasti cursore 
per ruotare di 90 gradi verso sini¬ 
stra o destra, e infine la barra spa¬ 
ziatrice per sfoderare la spada e 
combattere. La partita ha termine 
se fatica o ferite calano a zero; tieni 
presente però che puoi recuparare 
punti in fatica stando fermo e gi¬ 
rando su te stesso. 


10 REM•SOTTERRANEI 

treni 

149 

20 DIMR$(4) 

treni 

55 

30 Y$="{HOME}{ 22 GIU'}":X$="{ 22 DES}" 

:rem 

1 59 

40 POKE53280,0:POKE53281 ,0:PRINTCHR$(14):SC* 

1024 : rem 

11 

50 SR=INT(RND(1)*11+10) 

: rem 

1 

60 DE=INT(RND(1)*11+10) :WE= 75+1NT(RND(1)*25) 

trem 

1 95 

70 TS=0:RO=0:FA=100:WO=100:D=1:X=3:Y=15 

2 rem 

36 

80 FORI=0TO4:READR$(I):NEXT 

2 rem 

1 87 

90 DATA093D7L5ED5R104D7L4D2L4U2L4U9R3U4L3U6 

2 rem 

156 

100 DATAD10R5E403D991L4U9D9L8U9E406 

2 rem 

115 

110 DATA03D5RE5U104R4D7E4092L93U994 

2 rem 

99 

120 DATA06D7U7R6D8L2D 5R2D8L4E404U91R6D4U4L6U1E40R2L2U6 


2 rem 

85 

130 DATA093D9L9R6D9L1D3L1E403U993 

:rem 

214 

140 ONROGOTOl60,1 70,1 80,190 

2 rem 

242 

150 MX=10:MY*3:GOT0200 

2 rem 

46 

160 MX=4:MY=3:GOTO200 

2 rem 

2 

170 MX*3:MY=10:GOTO200 

2 rem 

48 

180 MX = 10:MY = 18:GOTO200 

2 rem 

103 

190 MX = 2:MY = 18:GOTO200 

2 rem 

57 
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200 

M=0: IFRND( 1 )>.5THENM*INT(RND(1)*3+1) :MS=INT(RND(1)*10 


)+5 

:rem 

212 

210 

GOSUB1000:V*0:F*0:GOTO250 

s rem 

200 

220 

GETA$:V-VAL(A$):IFV-0THEN430 

:rem 

145 

230 

FA*FA-INT((V/200)*(1OO-HO)+(V/200)+WE+.5) 

:rem 

119 

240 

GOSUB910:IFM-1ANDRND(1)>.2THENF-1 

: rem 

238 

250 

SW*0:FORI■1TOV:PRINTLEFTS(Y$,Y+1);LEFT$(X$ 

rX) w 



{ 2 SPAZI}{GIU'}{ 2 SIN}{ 2 SPAZI}” 

: rem 

174 

260 

XI»X+(D«3)-(D»1):Yl-Y+(D=0)-(D«2) 

:rem 

206 

270 

IFPEEK (SC+Yl M0+X1 ) O320RPEEK (SC+Yl*40+Xl +1 ) 032THENI 


-V:GOTO360 

:rem 

0 

280 

IFPEEK (SC+Yl *40+Xl +40) O320RPEEK (SC+Yl M0+X1 +41 ) <>32T 


HENI*V:GOTO360 

: rem 

196 

290 

X«Xl:Y«Y1:IFX>0ANDX<11ANDY>0ANDY<20THEN360 

:rem 

151 

300 

RO-RO+(X-0)-(X»ll)+((Y-20)-(Y»0))*2 

:rem 

45 

310 

IFX-0THENX-10 

: rem 

13 

320 

IFX-1lTHENX-1 

:rem 

16 

330 

IFY-0THENY-19 

:rem 

26 

340 

IFY-20THENY-1 

: rem 

20 

350 

GOTO 1 40 

:rem 

102 

360 

PRINTLEFTS(Y$,Y+1);LEFT$(X$,X)"{RED}"; 

: rem 

154 

370 

OND+1GOTO380,390,400,410 

: rem 

244 

380 

PRINT" [<D>] {GIU'H 2 SIN} [< 2 K>} {SU} {SIN}" ; :GOTO420 


« 

:rem 

23 

390 

PRINT"{RVS}{<!>}{OFF}[<F>]{GIU'}{ 2 SIN}{RVS}[<I>] 



{OFF} {SIN}";JGOTO420 

:rem 

224 

400 

PRINT"{RVS}[< 2 K>]{GIU'}{ 2 SIN}{OFF} £<V>]{ 2 SIN} 


";JGOTO420 

: rem 

210 

410 

PRINT" I<I>]{GIU’}{ 2 SIN}{<C>1 [<I>]{SU}{ 

2 SIN} W ; 



9 * 

A 

: rem 

183 

420 

IFV>0THENNEXTI 

2 rem 

160 

430 

IFA$<>"{GIU'}"ANDA$< >"{DBS}"THEN490 

2 rem 

57 

440 

IFFA<100THENFA«FA+1:GOSUB910 

2 rem 

165 

450 

SW-0:D-D+(A$«"{GIU 1 }")-(A$«"{DES}"):IFD<0THEND-3 




2 rem 

255 

460 

IFD>3THEND-0 

2 rem 

190 

470 

A$-"" 

2 rem 

1 29 

480 

V-0:GOTO360 

2 rem 

107 

490 

IFA$<>" "THEN570 

2 rem 

26 

500 

SW»3:FA»FA-2 

2 rem 

147 

510 

PRINTLEFTS(Y$,Y+1) ;LEFT$(X$,X+1);"{YEL}";; 

IFD»0THENPR 


INT"[<H>]":GOTO550 

2 rem 

235 

520 

IFD-1THENPRINT"{GIU'}[<Y>]":GOTO550 

2 rem 

173 

530 

IFD-2THENPRINT"{GIU'}{SIN}[<M>]":GOTO550 

2 rem 

60 

540 

PRINT"{SIN}[<P>]" 

2 rem 

1 82 

550 

Xl*X:Yl»Y:Xl»Xl + ((D-3)-(D»l) ) *2: Yl «Yl + ( (D« 

0)-(D-2))*2 



2 rem 

62 

560 

F*1 

• 

2 rem 

79 

570 

IFSW>0THENSW*SW-1 :IFSW-OTHENGOSUB910:A$*"" 

:GOTO360 



2 rem 

1 82 
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580 IFM-0THEN870 :re m 180 

590 IFMS>«SRANDRND(1)>.7THENF«1 jrern 172 

600 IFF-0THEN700 sre m 158 

610 PRINTLEFT$(Y$,MY+1);LEFT$(X$,MX)"{'2 SPAZl}{GIU'} 

{ 2 SIN}{ 2 SPAZI}";:IFSM>0ANDMX>-XTHENPRINT"{ 2 SU} 

{ 3 SIN} " :rem 124 

620 SM-0:DY-MY+(MY>Y)-(MY<Y) srem 209 

630 IFPEEK (SC+DY*40+MX) O320RPEEK (SC+DYM0+MX+1 ) 032THEN6 

:rem 18 

640 IFPEEK (SC+DYM0+MX+40) O320RPEEK (SC+DY*40+MX+41 ) <>32T 
HEN660 : rem 214 

650 MY-DY 
660 


670 

680 


:rem 

:rem 27 

DY-MX+(MX>X+2)-(MX<X-1):IFABS(DY-X)<«lTHENDY"DY+(DY>1 

)* 2 :rem 138 

IFPEEK (SC +MY*40+DY) O320RPEEK (SC+MYM0+DY+1 ) 032THEN7 

00 :rem 19 

IFPEEK (SC+MYM0+DY+40) O320RPEEK (SC+MYMO+DY+41 ) <>32T 

HEN700 :rem 215 

690 MX-DY :rem 30 

700 PRINTLEFT$(Y$,MY+1);LEFT$(X$,MX)"{BLU}{RVS}[<B>]{OFF} 
[<F>]{GIU'}{ 2 SIN} I<C>]"; :IFSW-0THEN750 :rem 5 

710 IFABS(Xl-MX)>10RABS(Yl-MY)>1THEN750 :rem 119 

720 SW-1:S-SR/4:S-S+(S*DE)/100:MS-MS-INT(S+.5):IFMS>0THEN 


750 


rem 133 


730 PRINTLEFT$(Y$,MY+1) ;LEFT$(X$,MX)"{ 2 SPAZI}{GIU'} 

{ 2 SIN} " 

740 TS-TS+1:M-0:GOT0870 
750 IFSM>0ORRND(l)>.5ORF-0THEN830 
760 X2-MX:Y2-MY 

770 PRINTLEFTS(Y$ # MY+1);LEFT$(X$,MX); 

780 IFMX<XTHENPRINT"{GIU'}{DES}{YEL}[<Y>J"; :Y2-Y2+1:X2-X2 
+1SGOTO820 
IFMX-0THEN870 

IFPEEK (SC+MY*40+MX-1 ) -160THEN870 
PRINT"{SIN}{SU}{YEL}{<P>J";:X2-X2-1 

SM a 4 

IFSM-0THEN870 
SM"SM-1 

IFABS(X2-X)>10RABS(Y2-Y)>lTHEN870 
SW-1:S-MS:S-S+(S*2*M)/I00:WO-WO-INT(S+.5) 

IFWO>0ANDFA>0THEN220 


790 

800 

810 

820 

830 

840 

850 

860 

870 

880 


890 

900 

910 

% 

920 

930 


rem 

41 

rem 

136 

rem 

255 

rem 

177 

rem 

217 

!+l :X2-X2 

rem 

2 

rem 

15 

rem 

98 

rem 

9 

rem 

171 

rem 

5 

rem 

119 

rem 

231 

rem 

172 

rem 

205 

Il MORTO 1 

rem 

17 

rem 

245 

rem 

229 


" :M-0 

GOSUB91OsGOTOl150 
IFD1 » 3THENPRINT"{SIN}"; 

PRINTLEFTS (Y$ , 2 ) ;LEFT$ (X$ , 1 4) " {CYN}FATICA {Yisi, j tGIU ■ \ 
{ 7 SIN}"FA"{SIN}t " -rei i 5 6 

PRINTTAB(14)"{CYN}FERITE{GIU'}{ 6 SIN}{YEL}"WO"{SIN}% 

:rem 96 

PRINTTAB(14)"{GIU'}{CYN}PESO{GIU'}{ 4 SIN}{YEL}"WE" 


{SIN}KG{GIU'} 


:rem 


36 


30 



940 PRINTTAB(14)"{CYNJMOSTRI{GIU'}{ 6 SIN}UCCISI{YEL} 

{GIU'H 6 SIN)"TS :rem 251 

950 PRINTLEFT$(Y$,17);LEFT$(X$,l4)"{PUR} {< 8 P>]{GIU’} 

{ 9 SIN}[<N>]{ 8 SPAZI)[<H>]{GIU'}{ 10 SIN}"? 

:rem 126 

960 PRINT"[<N>]{ 8 SPAZI}[<H>]{GIU'}{ 10 SIN)[<N>] 

{ 8 SPAZI)[<H>]{GIU’){ 10 SIN}(<N>){ 8 SPAZI)[<H>]"; 

:rem 43 

970 PRINT" {GIU'){ 9 SIN) [< 8 Y» { 4 SU}( 7 SIN)"; 

:rem 137 

980 IFM>OTHENPRINT"{GIU 1 }MOSTRO{GIU 1 ){ 7 SIN)IN VISTA" 

:rem 90 


990 RETURN 

:rem 

130 

1000 

PRINT"(CLR){WHT}";:Dl* 1 :FORI*lTOLEN(R$(RO)) 

:rem 

149 

1010 

S$=MID$(R$(RO),1,1) : IFVAL(S$)>OTHENFORJ*1TOVAL(S$):G 


OSUBl090 :NEXT 

: rem 

250 

1020 

IFS$“"U"THENDl*0 

:rem 

176 

1030 

IFS$-"L"THENDl«3 

: rem 

171 

1040 

IFS$-"D"THENDl-2 

:rem 

163 

1050 

IFS$-"R"THEND1*1 

: rem 

177 

1060 

IFS$“"E"THENPRINT"{OFF)"; 

:rem 

96 

1070 

IFS$«"0"THENPRINT"{RVS}"; 

••rem 

235 

1080 

NEXT:PRINT"{HOME)":GOSUB910:RETURN 

:rem 

148 

1090 

PRINT" {SIN}"; 

:rem 

115 

1100 

IFD1-0THENPRINT"{SU}"; 

:rem 

255 

1110 

IFD1-1THENPRINT"{DES}"; 

:rem 

141 

1120 

IFD1-2THENPRINT"{GIU'}"; 

srem 

131 

1130 

IFD1-3THENPRINT"{SIN}"; 

srem 

17 

1140 

RETURN 

srem 

166 

1150 

PRINTLEFTS(Y$,20);LEFT$(X$,16)"FINE" 

srem 

79 

1160 

PRINT"{ 2 GIU'jGir-HI ANCORA (S/N)?" :POKEl98,0 



• • • 

srem 

233 

1170 

GETA$ 

srem 

14 

1180 

IFA$-"N"THENPRINT" {CLR}":END 

srem 

49 

1190 

IFA$-"S"THENRUN 

srem 

183 

1200 

GOTO!170 

srem 

197 


31 

















































